определить ch:символ[2];

начало
  печать("Введите 1-й символ ="); чтение(ch[0]); новаястрока;
  печать("Введите 2-й символ ="); чтение(ch[1]); новаястрока;
  если (ch[0]==ch[1]) тогда
    начало
      печать("Символы одинаковые"); новаястрока;
    конец
   иначе
    начало
      печать("Символы разные"); новаястрока;
    конец
конец.